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Wogofithm Schedule^) j 

Answer.^ j \; Pendinq := ! ] : r nabled j h 
for each n in leavesfPP '</ crmputeQueryNodefn); 
while (Enabled i \ \ OR F.,r. :ing i I |) 

Z, := chooseForSchsc'iii^ Enabled); /* implements a particular scheduling policy */ 
for each (Q,S) in L di 

Pending := Pending u|(0,S)j; LDAP.issueQueryft.S); 
LD AP_ waitForEven tfe }: 
case e.type of 

boolean answer for Q@S: Pending := Pending -j((?,S)| 
storeCacheft,^ e. value)', 
for n in getCacheWaitinglist^.S 1 ) do j 
n.value := e. value; 
computeConditionalNode(n. parent); \ 
directory entry for Q@S: Answer := Answer l)\e.value\ 
End-of-Entries for Q@S: Pending := Pending -\(Q,S)\ 
return Answer; 

function computeQueryNode(n) j 

if all n's children are computed then 

Q :~ generateQuer/Expressionfn.Qiiery); /* expands all if-macros*/ 
S := n.Server; v := getCache(^,S); 
case v of 

INEXISTENT: insertCache(Q,S, Pending); 

Lnabled := Enabled u\[QM 

addCacheWaitingListfo.S.n); 
Pending addCacheWGitingListf^n); 
TRUE, FALSE: n.value :-v; 

computeConditionalNode(n.parent) 

function computeConditionalNode(n) j 

if (exist p in n.children such that p. value - TRUE) then 

n.value := TRUE; computeQueryNode( . ); 
else if (all n's children are computed) then 

n.value := FALSE; computeQueryNode(n.parent); 
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